Counter property

Returns a Long value indicating the number of times this property was called. Read-only.

Examples:

' Evaluation Period
If (ActiveLock1.Counter > 10) Then
  MsgBox "You have used this program 10 times."
  End
End If